﻿Imports System.Data.SqlClient
Public Class Frm_Mahkama

    Private Sub Frm_Mahkama_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        Frm_Dossier.Enabled = True
        Frm_Dossier_Orig.Enabled = True
        Frm_Dossier.Enabled = True
        Partager.com_ville(Frm_Dossier.Comb_mahkama, "Comb_mahkama", "mahkama")
        Partager.com_ville(Frm_Dossier_Orig.Comb_mahkama, "Comb_mahkama", "mahkama")
        If Partager.viensDeProc Then
            Partager.com_ville(frmProces.Comb_mahkama, "Comb_mahkama", "mahkama")
            Partager.viensDeProc = False
            frmProces.Enabled = True
        End If
    End Sub

    Private Sub Frm_Mahkama_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        txt_mahkama.Select()
        Partager.RemplirList(List_mahkama, "Comb_mahkama", "mahkama")
    End Sub

    Private Sub btn_supp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_supp.Click

        Partager.DeleteFromList(List_mahkama, "Comb_mahkama", "mahkama", txt_mahkama)
    End Sub

    Private Sub btn_ajout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_ajout.Click
            Partager.AjouterWadifa(txt_mahkama, List_mahkama, "Comb_mahkama", "mahkama")
    End Sub
End Class